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EDTSKEYCOM = get a keypad command 18-sep-19 4 90:36:18 Mp 


Bliss-32 V4.0 
14-Sep-1984 Dd & 


K-11 -7%4 Page 1) EDT 
SKSVMGHASTERSCEDT SRCTKEYCOM.BLI:1° 8%" (1) 04 


“EE” 1 O XTITLE "EDTSKEYCOM - get a keypad command’ | ; 
; ¢ ¢ MODULE EDTSKEYCOM ( ! Get a keypad command : 
3 ? st JOENT = 'v04-000' ! File: KEYCOM.BLI Edit: JBS1011 ; 
; = | . 
3 5 She : BEGIN : 
: ? 097 1 ORR RRE REA AAE RARER EAAREAAAAAEAE RAE A AEE AREER ARATE EAAAKEAAEKEREEEE | P 
3 1 te « ; 
g 9 p 9 1 !'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
a 10 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * . 
3 13 O01 : 7 ALL RIGHTS RESERVED. * : 
Py :* we | 3 
; ig Big 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
oo.) Se 0014 1 !* ONLY IN ACCORDANCE WITH THE TERM F CH LICENSE AND WITH THE * | . 
Pe 0015 1 !* USION OF THE ABOVE COPYRIGHT NOTICE. THIS OR ANY OTHER * ; 
3 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTH ISE MADE AVAILABLE TO ANY * } ‘ 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® | . 
3 13 dt : re TRANSFERRED. * | 3 
3 'e # 3 
; @ Base 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
3 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT % : 
3 § ons : be CORPORATION. ¥ | : 
: '@ * ° 
3 4 0034 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® ; 
3 5 0025 1 '* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
; poss 1 !e * 3 
> ae 0027 1 !« » F 
3 8 Bose LF eee eee RRA AREER AERAAE AEE | 3 
3 1! : 
3 §0 $080 1 3 
3 1 0031 1 !+4+4 : 
3 % 0035 1! FACILITY: EDT -- The DEC Standard Editor ; 
jie 0035 1! 3 
H 34 0034 1 ! ABSTRACT: 3 
; 5 ite 1! 
3 6 036 1! Get a keypad command. 
: 7 0037 1! 
3 M4 td ! ENVIRONMENT: Runs at any access mode - AST reentrant 
3 re sre ! AUTHOR: Bob Kushlis, CREATION DATE: April 7, 1979 
: 4 0042 1 | MODIFIED BY: | 
t-@ 0043 1! | 
: «646 Boe 1 ! 1-001 = Original. DJS 24-Feb-1981. This module was created by 
> 65 045 1! extracting routine EDT$$GET_KPADCMD from module KEYTRAN. 
s B68 1 ! 1-002 = Regularize headers. JBS 09-Mar-1981 
; 647 0047 1! 1-38 - Add return values. JBS 02-0ct-1981 
; 48 0048 1 ! 1-004 - Check one more return value and add a variable to call to | 
> 49 0049 1 | EDTSSKPAD_INP. STS 21-Oct-1981 | 
; 0050 1 ! 1-005 - Set a flag if control C actually aborts something. JBS 25-May-1982 
3 51 51 1 ! 1-006 = Im NOKEYPAD mode gopy control characters into the buffer. JBS 07-Jun-1982 
; 26 26 1 ! 1-007 = Pass flag to EDTSSNXT_CMDCH so that it will accept repeat counts. STS 16-Jun-1982 
jae 53 1! 1- 38 - Add reverse vidgo to nokeypad command input. S$ g-dunn 196 
: 54 054 1! 1- - New implementation of defined keys. JBS 12-Aug-1982 
; 5 055 1 ! 1-010 = Add another control C check sings a control C can occur 
: g 036 1! n edt$$trn_kstr. STS 24-Nov-1982 
3 057 1. ! 1-011 = Don't call EBTSSERA_MSGLN unnecessarily. JBS 20-Jan-1983 
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= get a keypad command Ifoseoetg d 99: 38: 3 


RSBTTL ‘Declarations’ 
; TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 


EDTSSGET_KPADCMD; ! Get a keypad command 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 
LIBRARY ‘EDTSRC:KEYPADDEF'; 


i MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 


$$-32_V p 3 
SFeaccEDT SRCIKEVCOM.BLI:1°° (25 


C et Liss-32 V4.0-7 
EDTSSGET_KPAD(MD = get a keypad command -Sep-1 Dd ® 


ZSBTTL "EDTSSGET_KPADCMD = get a keypad command’ 
GLOBAL ROUTINE EDTSSGET_KPADCMD ! Get a keypad command 
= 


corer EDTSKEYCOM - a keypad command 18-Sep-1984 00:46:38 5 
; ¢ 


oo 


NOUS WN OOO 


ee 


i FUNCTIONAL DESCRIPTION: 


Get a i command. Characters are read and translated until a complete 
' command is seen. The characters are handled as follows: 


FPSSOSS 
a 


Keypad and control characters are translated, and if they end in a '.' then the 
command is complete. 


Other characters are treated as insertions and always complete. 
FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 


EDTS$$T_CMD_BUF 
EDTS$A_CMD BUF 
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1 
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1 

1 

1 06 

1 06 

1 0688 

1 0689 

1 0690 EDTS$$G_K 

1 0691 EDT$$G_TIN_ECHOFLG 

! 839 EDTS$G_MSGFLG 

1 0694 IMPLICIT OUTPUTS: 

1 0695 

1 0696 EDTSSA_CMD_END 

1 0697 EDT$$G_CC_BONE 

1 0698 

; 0699 ROUTINE VALUE: 

: 444 1 = ok, 0 = control C, 2 = end of journal file 

1 070 SIDE EFFECTS: 

1 0704 

: 4 5 NONE 

1 tie) oo 

1 0708 

1 709 BEGIN 

1 710 

1 711 a, ROUTINE 

1 us EDTSS$SC_REVID, ' Turn on reverse video for nokeypad commands 
1 071 EDTSSCHR_CC ' Check for control 

1 714 EDTSSERA_MSGLN : NOVALUE, ' Erase the message Line 

1 715 EDTSSNXT_CMDCH, ! Get the next command character 
1 rg EDTSSTRN_KSTR, ' Build the command buffer 

1 71 EDTSSPUT CMDCH : NOVALUE, ' Put a character in the command buffer 
: ng EDTSSKPAD_INP; ! Auxiliary call to EDTS$TI_RDCMDLN 
1 720 exten, 

1 721 EDTSS$T_CMD_BUF, ' Command buffer ; 

1 722 EDTSSA_CMD_BUF , ! Pointer to next char in command buffer 


X-11 8 4 
SKSVMSMASTER: CEDT.SRCJKEYCOM.BLI;1 


Kk 6 | 
EDTSKEYCOM TSKEYCOM - a keypad command 6-Sep 4 VAX-11 Bliss-32 V 5. 
104-000 TSSGET_KPAD MD - *- et 8 a keypad command 1228 Sep 1386 93: 38: Hf DISKSVMSMASTER: Cebit she KEYCOM.BLI;1 eee ) 
; ; tte “Feel } dae to ond of info in command buffer | 
! Keypad mode 
5 5 EDT$$G_CC_D DONE : Set to 1 | control C actually aborts something 
$ EDT$$G_TIN ECHOFLG, 
EDTSS$G_MSGFLG; 
LOCAL 
C 
RES_TERM, 
SUCCEED 
KEYS_SEEN; 


KEYS_SEEN = 0; 
Loop until command is complete. 


WHILE 1 DO 
BEGIN 


| 

; Get the next command character. If the command was aborted, return. 

SUCCEED = EDTSSNXT_CMDCH (C, 1); 

IF (.SUCCEED NEQ 1) THEN RETURN (.SUCCEED); 
| 
| 
| 
| 


'¢ 
- Check for control C and abort the command. 


IF EDTSSCHK_CC () 
THEN 


BEGIN 
EDTSSA_CMD_END = EDTSS$T_CMD_BUF; 
IF .KEYS_SEEN THEN EDT$$G_CC_DONE = 1; 
RETURN (0); 
END; 
KEYS_SEEN = 1; 


'¢ 
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6 i Erase the message Line and make sure we are in reverse video mode 

766 ! if this is a nokeypad command 

ae 

769 IF ((. EDTSS$G_MSGFLG NEQ 0) OR .EDTSS$G_TIN_ECHOFLG) THEN EDTSSERA_MSGLN (); 
a4 IF ( NOT .EDTS$G_KPAD) THEN EDTS$SC_REVID (); 

ae SELECTONEU .C OF 

774 SET 

775 

776 CO TO 31) : 
77 '¢ 

v8 Control character: if in keypad mode, translate it. 


'¢ 
: In nokeypad mode, copy characters into the buffer. 


IF (EDTSSKPAD_INP (.C, ASC_K_CR, RES_TERM) EQL 2) THEN RETURN (2); 
EDTSSA_CMD_END = .EDTSSA_CMD_BUF; 
RETURN” (1); 


oO 


TES; 
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'¢ 
! Check for control C and abort the command. 


6 
EDTSKEYCOM EDTSKEYCOM = get a keypad command 1b-Se -1984 00:42: VAX-11 Bliss-32 V4.0-74 Pa 
tet EDTSSGET_KPAD(MD - oet a keypad command 12-88-1382 99:59:38 NT EKSVMGMASTERSLEDT SRCTKEYCOM.BLI:1 
; 210 780 
$ 11 781 IF .EDTS$G_KPAD 
§ \¢ 7 ¢ THEN 
: 1 7 4 BEGIN 
s 216 784 4 
: 1? f 5 : IF EDTSSTRN_KSTR (.C, 1, 0) THEN RETURN (1); 
; i$ 7 5 4 END 
; 218 788 3 ELSE 
3 19 789 4 BEGIN 
3 0 790 4 !4 
3 : 73¢ 2 } In nokeypad mode, copy characters into the buffer. 
: 0793 4 
; ¢ 14 9) : IF CEDTSSKPAD_INP (.C, ASC_K_CR, RES_TERM) EQL 2) THEN RETURN (2); 
3 226 0796 4 EDTSSA_CMD_END = .EDTSSA_CMD_BUF; 
3 e? 079 4 RETURN (1); 
; 228 0798 ; END; 
3 $$3 0799 
; 23 Bane ra CASC_K_DEL, K_KPAD_BASE TO K_KEY_MAX]) : 
3 3 080 ! DEL, keypad or function key: always translate. 
s 2s 080 !- 
3 See 0804 
: a ted IF EDTSSTRN_KSTR (.C, 1, 0) THEN RETURN (1); 
: 237 0807 COTHERWISE) : 
: 238 0808 + 
: 4 st#4 Insertion character: make the command Ic“*Z. 
: gui 11 
: 4@ lg IF .EDTS$G_KPAD 
: 24 1 THEN 
: ghd 14 4 BEGIN 
: 45 15 4 EDTSSPUT_CMDCH (ZC'I', 0); 
3 ses 16 4 EDTSSPUT_CMDCH (.C : 
: 267 17 4 EDTSSPUT~CMDCH (ASC_K_CTRL_Z, 0); 
> 248 18 4 EDT$SA_CAD_END = .EDTS$A_CAD_BUF: 
: 49 19 4 RETURN (1); 
: 250 20 4 END 
s ol 21 3 ELSE 
; 25 $§ 4 BEGIN 
; @ 4 
8 54 4 4 
i $8 é 
3 3$ 4 
: 58 4 
: 5 4 
: | 
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H 6 | 

EDTSKEYCOM EDTSKEYCOM - a keypad command 16-Sep-1984 00:42:17 VAX-11 Bliss-32 V4.0-7 7) 

aH *550 EDTS$GET_KPAD aD - “oot 8 a keypad command 19-808- 138 99:59:39 DISKSVMSMASTER: th + sre KEYCOM.BLI;1 the (3) | 
: ref H le | 
: 269 4 IF EDTSSCHK_CC () | 
: 0 40 THEN 
: 271 41 4 BEGIN 
; , Bie 4 EDTSSA_CMD_END = EDTS$T_CMD_BUF; 
: 274 B44 4 IF .KEYS_SEEN THEN EDTS$ NE = 1; 

: oth Bah 4 _SEEN THEN EDT$$G_CC_DONE 
: 27 baee 4 RETURN (0); 
; as Bee END; 
: 279 oBee END; 
> 280 0850 
: 281 0851 RETURN (1); 
; 282 0852 END; ! of routine EDTS$GET_KPADCMD 


.TITLE EDTSKEYCOM EDTSKEYCOM - get a keypad command 
-IDENT \V04-000\ 
.EXTRN EDTSSSC_REVID, EDTSSCH 
.EXTRN EDTSSERA_MSGLN, EDT TST, EMDCH 
-EXTRN EDTSS$TRN-KSTR, EDTS$SPUT CMDCH 
~EXTRN EDTSSKPAB_INP EO TSSTe tmp BUF 
EXTRN EDTSS$A_CMD_BUF eDISaR CMB_END 
-EXTRN EDTSS$G_KPAD, EDTSS ONE | 
EXTRN EDTS$G_TIN échoree | 
EXTRN EDTSS$G_MSGFLG 
.PSECT _EDTSCODE.NOWRT, SHR, PIC,2 
O7FC 00000 -ENTRY EDTSSGET KPADCMD, Save R2,R3,R4,R5,R6,R7,- ; 0668 
5A 000000006 00 9€ 0000 MOVAB EDT$$A_CMD_BUF, R10 ; 
59 900000006 00 9E 000 MOVAB EDTSSKPAD_INP, R9 ; 
58 99000006 0 9€ 00010 MOVAB EDTSS$CHK_CC, : 
57 00 000006 99 9E 00017 MOVAB EDTSS$PUT~CMOCH, R7 : 
36 00000006 00 9€ O01 MOVAB EDTS$A_CAD_END. R6 F 
55 000000006 i 00 MOV EDTSSG_KPAD, R5 ; 
5E C2 0002C SUBL2 #8, SP : 
D4 0 F CLRL KEYS_SEEN : 0735 
01 dD 1 1$ PUSHL #1 : 0745 
AE 9F 00033 PUSHAB C ; 
000000006 00 FB 0 CALLS 2. EDTSSNXT_CMDCH : 
54 DO 00030 MOVL RO, SUCCEED : 
01 4 D1 0004 CMPL SuCcEED, #1 : 0747 
4 3 4 BEQL $ 3 
50 4 pO 904 MOVL SUCCEED, RO : 
68 90 FB 0049 2$: CALLS 0 Rgrsscux_cc : 0753 | 
0 : 4C BLBC : 
OOAC 31 O004F BRW : | 
53 1 D é 3$: MOVL KEYS_SEEN > 0763 
000000006 99 > 3 iste Hall MSGFLG ; 0769 | 
07 000000006 00 E D BLBC = EDTS$$G_TIN_ECHOFLG, 5$ ; | 


SS 
RS 


b- £01984 00:49:18 VAX=11 Bliss-32 V4.0-74 Page 8 


| 
ERT Se YCOM EDTSKEYCOM = get a keypad command 16-S$ 
v04-000 EDTSSGET_KPADCMD = get a keypad command 14-$ 4 2 DISKSVMSMASTER: CEDT.SRCIJKEYCOM.BLI;1 (3) | 
000000006 99 0) EB 20064 us: CALLS #0; EDTSSERA_MSGLA oo 
000000006 9 80 F CALLS #0, GDTSSSC_REVID : 
D 6$: MOVL : O773 
iF ° 7 CMPL =o, #311 : 776 
1 § bpor8 BCBC” §EDTSSG_KPAD, 8S : 0781. 
7E 1 * ogy” wove #i, -(SP) : 0785. 
000000006 00 Q FB 00 CALLS #3, EDISSTRN_KSTR : 
66 F 008C BLBC RO. 158 : 
12 11 00 F BRB : 
04 AE OF 1 8$: PUSHAB RES_TERM + 0794 
9 DD 00094 PUSHL #1 : 
DD 00096 PUSHL Re : 
69 03 FB 0009 CALLS #3, EDTS$SKPAD_INP : 
02 50 D1 00098 CMPL RO #2 : 
4A 13 0009 BEQL 6-138 : 
rx. 6A 00 000A MOVL § EDTSS$A_CMD_BUF, EDTS$A_CMD_END + 0796 
6C 11 O00A3 9$: BRB 17$ : 0797 
0000007F = &F 52 01 000A5 10$ CMPL = R2, #127 + 0800 
D2 13 OOOAC BEQL «6 7$ : 
0000012c = BF 52 Dl OOOAE CMPL = R2,- #300 ; 
09 1F 9008 BLSSu 118 : 
000003E7 BF 52 01 00087 CMPL = R2, #999 : 
C69 1B 9008 BLEQU ; 
18 65 £9 000CO 11$:  BLBC  EDTS$G_KPAD, 128 > 0812 
7E 04 000¢ CLRL = = (SP) > 0815 
7E 49 8F 9A 000C5 MOVZBL #73, -(SP) : 
67 02 FB 900¢9 CALLS #2, EDTS$PUT_CMDCH : 
7E D4 000CC CLRL =_ = (§P) + 0816 
3¢ DD 000C PUSHL R ; 
67 02 FB 0000 CALLS #2, EDTS$$SPUT_CMDCH : 
7E 1A 7D 000D MOVO #26, -(SP t 0817 
67 08 FB 99006 CALLS #2, EDTS$$PUT_CMDCH : 
13 11 00099 BRB > 0822 
04 AE 9F 00U0DB 12$:  PUSHAB RES_TERM : 0827 
9D DD OODE PUSHL #1 : 
: DD O0DE PUSHL Re : 
69 03 FB O0Ee CALLS #3, EDTSSKPAD_INP ; 
02 50 D1 O00E CMPL =s RO. 2 : 
04 i O0E8 BNEQ 14$ : 
50 02 p QOOEA 13$:  MOVL #2, RO ; | 
4 QED RET F 
50 01 09 EE 148: MOVL #1, RO + 0830 
66 6A p OOF MOVL § EDTSS$A_CMD_BUF, EDTS$A_CMD_END : 0818 
4 OOF RET : 0862 
68 F 3 15$: CALLS #0, EDTSSCHK_CC ; 0839 | 
OF soonnct’Se SI EHH vee, Bitte IE hoa 
66 000000006 9 i FE 16$:  MOVAB. EDTSST CHD _BUF EDTS$A_CMD_END : 0842 
0D ES 001 BLBC -—sCvKEYSS SEEN 18$ > 0844 
000000006 00 } D6 108 MOVL #1, EDT$$G_CC_DONE : 
4 10F BRB 18$ > 0846 
50 1 p0 111178:  MOVL #1, RO > 0851 
4 00114 RET : | 
50 D4 00115 18%:  CLRL RO > 0852 
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ve BYSSEf rPApeRG “~"exeed command. snand 1fse Verse 1382 99:3G:NF Nek UwGhASfeRsceot secSkevcom.et;1 2% «3s 


04 00117 RET 
; Routine Size: 280 bytes, Routine Base: _EDTSCODE + 0000 


: 8 832 1 s<BLF/PAGE> 


? | 

your000 EDISSGET KPADEMD “= ‘eee's kerpad command 1f-sep Or19Be 19:38:21 DISKSUMGMASTERSCEDT SRCSKEYCOM.BLI;1 o* (ay, 

5 1 END ! of module EDTSKEYCOM | 

: 3 a836 ) ELUDON 

: PSECT SUMMARY | 

; Name Bytes Attributes | 

: _EDTSCODE 280 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics ; 
Bae: 5 eae er oye ere epee Syabol$ osoe-e-- Pages Processing : 
: File Total Loaded Percent Mapped Time ; 
i RBSSRUME FERT SREDERE AR ieee to es 3 
; 83SDUASB: CEDT SRCIKEYPADDEF <i 32: 1 34 2 00:00.1 ; 
; COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACEBACK/LIS=L1S$:KEYCOM/OBJ=0BJ$:KEYCOM MSRC$:KEYCOM.BLI/UPDATE=(ENHS:KEYCOM) 


; Run Time: 00:16.4 
3 te Time: 0 a}. 
3 Lines/CPU Min: 4 

3 "came Ao Made 8405 

; Used: 110 pages 


; ptee: 280 code + 0 data bytes 
: rene Bag Complete 
| 
| 
| 
| 
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